home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zl.d64 / prc.print'timing < prev    next >
Text File  |  2007-03-01  |  696b  |  18 lines
  1. 0010 ╨╥╧├ PRINT'TIMING(START'OR'STOP,YROW,XCOL) 
  2. 0020   //CALL PRINT'TIMING(0,YROW,XCOL) TO START TIMING(PRINTS START MESSAGE
  3. 0030   //CALL PRINT'TIMING(1,YROW,XCOL) TO PRINT ELAPSED TIME AT YROW,XCOL
  4. 0040   
  5. 0050   ╔╞ START'OR'STOP=0 ╘╚┼╬ ╨╥╔╬╘ ┴╘ YROW,XCOL: "╙TART OF TIMING          "
  6. 0060   J:=256*256*╨┼┼╦(160)+256*╨┼┼╦(161)+╨┼┼╦(162)
  7. 0070   ╔╞ START'OR'STOP=0 ╘╚┼╬ START'UP:=J
  8. 0080   J:-START'UP
  9. 0090   JIF:=J ═╧─ 60
  10. 0100   J:=J ─╔╓ 60 // TURN JIFFIES INTO SECONDS
  11. 0110   SEC:=J ═╧─ 60; J:=J ─╔╓ 60
  12. 0120   MIN:=J ═╧─ 60; HOURS:=J ─╔╓ 60
  13. 0130   ╔╞ START'OR'STOP=1 ╘╚┼╬
  14. 0140     ╨╥╔╬╘ ┴╘ YROW,XCOL: ╒╙╔╬╟ "TIME= ##MIN.##SEC.##JIFS.": MIN,SEC,JIF
  15. 0150   ┼╬─╔╞ 
  16. 0160 ┼╬─╨╥╧├ PRINT'TIMING
  17. 0170 
  18.